home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / mathpack.arc / A.BAS (.txt) next >
Encoding:
GW-BASIC  |  1987-05-08  |  3.4 KB  |  90 lines
  1. 10  CLEAR
  2. 20  SCREEN 0,0,0
  3. 30  WIDTH 80
  4. 40  CLS
  5. 50  LOCATE 1,1,0
  6. 60  KEY OFF
  7. 70  LOCATE 2,10:PRINT "M A T H  P A K  D I S K  T U T O R I A L"
  8. 80  LOCATE 5,10:PRINT "Welcome to MATH PAK'S disk tutorial section."
  9. 90  LOCATE 6,10:PRINT "This section, offers one(1) screen tutorial"
  10. 100  LOCATE 7,10:PRINT "aids dealing with each function offered in "
  11. 110  LOCATE 8,10:PRINT "MATH PAK."
  12. 120  LOCATE 10,10:PRINT "The GUESSING GAME,FORMULA AND CONVERSION,"
  13. 130  LOCATE 11,10:PRINT "and the DETERMINANT sections, are not listed in"
  14. 140  LOCATE 12,10:PRINT "this section,because each of these sections offers"
  15. 150  LOCATE 13,10:PRINT "(except for FORMULA AND CONVERSION section) its own"
  16. 160  LOCATE 14,10:PRINT "set of instructions and guidelines."
  17. 170  LOCATE 16,10:PRINT "On the 2nd proceeding screen, are a list of the"
  18. 180  LOCATE 17,10:PRINT "tutorials offered. Enter the letter that corresponds"
  19. 190  LOCATE 18,10:PRINT "to the desired topic choice. If the letter (X) is "
  20. 200  LOCATE 19,10:PRINT "entered, the program will return to the FLOW section."
  21. 210  LOCATE 23,25:PRINT "PRESS THE S P A C E  B A R  TO CONTINUE":LOCATE 23,23:COLOR 15:PRINT CHR$(16):LOCATE 23,66:PRINT CHR$(17):COLOR 7,0
  22. 220  I$ = INKEY$:IF I$ = CHR$(32) THEN 250
  23. 230  GOTO 220
  24. 240  REM BEGIN TO DRAW THE NUMERICAL KEYBOARD
  25. 250  CLS
  26. 260  FOR A = 20 TO 50
  27. 270  LOCATE 6,A:PRINT CHR$(205):NEXT A
  28. 280  LOCATE 6,50:PRINT CHR$(187)
  29. 290  FOR A = 7 TO 19:LOCATE A,50:PRINT CHR$(186)
  30. 300  NEXT A
  31. 310  LOCATE 20,50:PRINT CHR$(188)
  32. 320  FOR A = 49 TO 20  STEP - 1:LOCATE 20,A:PRINT CHR$(205):NEXT A
  33. 330  LOCATE 20,20:PRINT CHR$(200)
  34. 340  FOR A = 19 TO 6 STEP - 1:LOCATE A,20:PRINT CHR$(186):NEXT A
  35. 350  LOCATE 6,20:PRINT CHR$(201)
  36. 360  FOR A = 7 TO 19:LOCATE A,30:PRINT CHR$(186):NEXT A
  37. 370  FOR A = 7 TO 19:LOCATE A,40:PRINT CHR$(186):NEXT A
  38. 380  LOCATE 6,30:PRINT CHR$(203):LOCATE 6,40:PRINT CHR$(203)
  39. 390  LOCATE 20,30:PRINT CHR$(202):LOCATE 20,40:PRINT CHR$(202)
  40. 400  FOR A = 21 TO 49:LOCATE 10,A:PRINT CHR$(205):NEXT A
  41. 410  LOCATE 10,50:PRINT CHR$(185)
  42. 420  FOR A = 21 TO 49:LOCATE 15,A:PRINT CHR$(205):NEXT A
  43. 430  LOCATE 15,50:PRINT CHR$(185)
  44. 440  LOCATE 10,20:PRINT CHR$(204):LOCATE 15,20:PRINT CHR$(204)
  45. 450  LOCATE 10,30:PRINT CHR$(206):LOCATE 10,40:PRINT CHR$(206):LOCATE 15,30:PRINT CHR$(206):LOCATE 15,40:PRINT CHR$(206)
  46. 460  LOCATE 17,25:PRINT "1":LOCATE 17,35:PRINT "2":LOCATE 17,45:PRINT "3":LOCATE 18,35:PRINT CHR$(25)
  47. 470  LOCATE 12,25:PRINT "4":LOCATE 12,35:PRINT "5":LOCATE 12,45:PRINT "6":LOCATE 13,25:PRINT CHR$(27):LOCATE 13,45:PRINT CHR$(26)
  48. 480  LOCATE 8,25:PRINT "7":LOCATE 8,35:PRINT "8":LOCATE 8,45:PRINT "9":LOCATE 9,35:PRINT CHR$(24)
  49. 490  LOCATE 9,23:PRINT "Home":LOCATE 9,43:PRINT "PgUp"
  50. 500  LOCATE 18,23:PRINT "End":LOCATE 18,43:PRINT "PgDn"
  51. 510  LOCATE 21,30:PRINT "THIS IS THE NUMERICAL KEYBOARD..."
  52. 520  LOCATE 22,30:PRINT "THE ARROWS INDICATE CURSOR CONTROL,"
  53. 530  LOCATE 23,30:PRINT "AND ARE NOT TO BE USED IN M A T H  P A K"
  54. 540  LOCATE 2,25:PRINT "PRESS THE S P A C E  B A R  TO CONTINUE":LOCATE 2,23:COLOR 15:PRINT CHR$(16):LOCATE 2,65:PRINT CHR$(17):COLOR 7,0
  55. 550  LOCATE 2,58:SP$ = INKEY$:IF SP$ = " " THEN 570
  56. 560  GOTO 550
  57. 570  CLS
  58. 580  LOCATE 2,10:PRINT "T U T O R I A L  S E L E C T I O N"
  59. 590  LOCATE 4,10:PRINT "A-ADDITION"
  60. 600  LOCATE 5,10:PRINT "B-SUBTRACTION"
  61. 610  LOCATE 6,10:PRINT "C-MULTIPLICATION"
  62. 620  LOCATE 7,10:PRINT "D-DIVISION"
  63. 630  LOCATE 8,10:PRINT "E-AREA OF CIRCLE AND TRIANGLE"
  64. 640  LOCATE 9,10:PRINT "F-QUADRATIC FORMULA SOLVING"
  65. 650  LOCATE 10,10:PRINT "G-TRIGONOMETRICAL FUNCTIONS"
  66. 660  LOCATE 11,10:PRINT "H-HEXIDECIMAL/OCTAL CONVERSIONS"
  67. 670  LOCATE 12,10:PRINT "I-BINARY TO DECIMAL CONVERSIONS"
  68. 680  LOCATE 13,10:PRINT "J-METRIC/U.S. CONVERSIONS"
  69. 690  LOCATE 14,10:PRINT "K-PRINTING/PRINTER USES"
  70. 700  LOCATE 15,10:PRINT "P-VIEW TUTORIAL INTRODUCTION SCREEN AGAIN"
  71. 710  LOCATE 16,10:PRINT "X-EXIT TO FLOW SECTION"
  72. 720  LOCATE 19,15:PRINT "ENTER A LETTER":LOCATE 19,31:COLOR 31:PRINT CHR$(219):COLOR 7,0
  73. 730  M$ = INKEY$
  74. 740  LOCATE 19,31:PRINT M$:FOR T = 0 TO 500:NEXT T
  75. 750  IF M$ = "A" OR M$ ="a" THEN CHAIN"A1"
  76. 760  IF M$ ="B" OR M$ ="b" THEN CHAIN"S"
  77. 770  IF M$ ="C" OR M$ ="c" THEN CHAIN"M"
  78. 780  IF M$ ="D" OR M$ ="d" THEN CHAIN "D"
  79. 790  IF M$ = "E" OR M$ ="e" THEN CHAIN"E"
  80. 800  IF M$ ="F" OR M$ ="f" THEN CHAIN "Q"
  81. 810  IF M$ = "G" OR M$ = "g" THEN CHAIN"C1"
  82. 820  IF M$ = "H" OR M$ ="h" THEN CHAIN"B1"
  83. 830  IF M$ ="I" OR M$ = "i" THEN CHAIN"L"
  84. 840  IF M$ ="J" OR M$ ="j" THEN CHAIN"Z"
  85. 850  IF M$ ="K" OR M$ ="k" THEN CHAIN"P"
  86. 860  IF M$ ="P" OR M$ ="p" THEN GOTO  40
  87. 870  IF M$ ="X" OR M$ ="x" THEN CHAIN"FLOW"
  88. 880  LOCATE 19,31:PRINT "   "
  89. 890  GOTO 720
  90.